home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #23 (1994-02-10)(Diesel)(DE)[WB].zip / Purity #23 (1994-02-10)(Diesel)(DE)[WB].adf / Tools / ToolPar.p < prev    next >
Text File  |  1994-01-20  |  1KB  |  62 lines
  1. UNIT ToolPAR;
  2.  
  3. {$Projekt MyTools}
  4.  
  5. INTERFACE
  6.  
  7. PROCEDURE SetLRand(VAR lst : Text; LRand : INTEGER);
  8.  
  9. PROCEDURE SetRRand(VAR lst : Text; RRand : INTEGER);
  10.  
  11. PROCEDURE SetAbstand(VAR lst : Text; Abst : INTEGER);
  12.  
  13. PROCEDURE PapierEndeSensor(VAR lst : Text; bool : BOOLEAN);
  14.  
  15. PROCEDURE Initialisize(VAR lst : Text);
  16.  
  17. IMPLEMENTATION
  18.  
  19. { Linken Rand setzen }
  20. PROCEDURE SetLRand;
  21. BEGIN
  22.   Write(lst,CHR(27)+"l"+CHR(LRand));
  23. END;
  24.  
  25. { Rechten Rand setzen }
  26. PROCEDURE SetRRand;
  27. BEGIN
  28.   Write(lst,CHR(27)+"Q"+CHR(RRand));
  29. END;
  30.  
  31. { Zeilenabstand bestimmen:
  32.  
  33.   0  -  Abstand 1/8 Zoll
  34.   1  -  Abstand 7/72 Zoll
  35.   2  -  Abstand 1/6 Zoll    }
  36. PROCEDURE SetAbstand;
  37. BEGIN
  38.   IF Abst IN [0..2] THEN
  39.   BEGIN
  40.     { Nur zur Sicherheit ... }
  41.     Write(lst,CHR(27)+IntStr(Abst));
  42.   END;
  43. END;
  44.  
  45. { De-/Aktiviert den Papierende-Sensor }
  46. PROCEDURE PapierEndeSensor;
  47. BEGIN
  48.   IF bool THEN Write(lst,CHR(27)+"9")  { An  }
  49.           ELSE Write(lst,CHR(27)+"8"); { Aus }
  50. END;
  51.  
  52. { Initialisiert den Drucker }
  53. PROCEDURE Initialisize;
  54. BEGIN
  55.   Write(lst,CHR(27)+"@");
  56. END;
  57.  
  58. BEGIN
  59. END.
  60.  
  61.  
  62.